home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / VistaPro / rexx / FB.rexx next >
OS/2 REXX Batch file  |  1993-01-30  |  1KB  |  43 lines
  1. /* FB.rexx -- Vista-to-FrameBuffer ARexx macro */
  2. /*         Written by William Sorensen         */
  3. /*    Copyright © 1992 by Joseph P. Laleman    */
  4.  
  5. /* This is a sample ARexx program for use with VistaPro.  It is provided   */
  6. /* as an example of how to call ARexx to display each VistaPro generated   */
  7. /* iff24 file on the Mimetics framebuffer.                                 */
  8. /*                                                                         */
  9. /* You must have ARexx and ADPro properly installed on your Amiga for this */
  10. /* example to work.                                                        */
  11.  
  12. ADPpath='ADPro:ADPro'  /* You must ASSIGN ADPro: to the proper directory */
  13.  
  14. IF ARG()~=1 THEN EXIT  /* Expects a command line argument */
  15. PARSE ARG filename
  16. TRACE OFF  /* Avoids unwanted error messages */
  17. IF ~SHOW('P','ADPro') THEN DO
  18.   /* Try to start up ADPro */
  19.   ADDRESS COMMAND 'run <NIL: >NIL: 'ADPpath
  20.   IF RC~=0 THEN EXIT
  21.   ADDRESS COMMAND 'waitport ADPro'
  22.   IF RC~=0 THEN EXIT
  23. END
  24. ADDRESS 'ADPro'
  25. OPTIONS RESULTS
  26. 'PSTATUS UNLOCKED'  /* Just in case */
  27. 'LFORMAT IFF'
  28. 'LOAD 'filename
  29. IF RC~=0 THEN DO
  30.   'ADPRO_TO_FRONT'
  31.   'OKAY1 Unable to load file 'filename
  32.   EXIT
  33. END
  34. 'SFORMAT FRAMEBUFFER'
  35. 'SAVE fnord RAW'
  36. IF RC~=0 THEN DO
  37.   'ADPRO_TO_FRONT'
  38.   'OKAY1 Unable to send file to FrameBuffer'
  39.   EXIT
  40. END
  41. 'ADPRO_EXIT'  /* Replace with 'EXIT' if you have an older version of ADP */
  42. EXIT
  43.